setwd("D:/Mestrado/Disciplina R/Aula6/Exerccios")

#####6.1#####
dados1=rnorm(10,mean=6,sd=3)
dados2=rnorm(10,mean=7.5,sd=3.2)
dados1
dados2

#1
source("simula.r")
x11()
sim.d= simula(dados1,dados2,nsim=2000, teste="t")

#2 - teste se a mdia da segunda amostra  maior do que a da primeira
sim.maior=simula(dados2,dados1,teste="uni")

#3 - t.test
t.test.d=t.test(dados1,dados2)
t.test.maior<-t.test(dados2,dados1,alternative="greater")
t.test.maior
#os valores sai iguais.

#4 - anlise exploratoria
mean(dados1)
mean(dados2)
str(dados1)
str(dados2)
boxplot(dados1,dados2)
hist(dados1,prob=T)
curve(expr=dnorm(x,mean=mean(dados1)),add=T)
hist(dados2,prob=T)
curve(expr=dnorm(x,mean=mean(dados2),sd=sd(dados2)),add=T)